;; 用于调试continuation值传递的简化测试文件
(display "=== 简化的continuation调试测试 ===\n")

;; 重新创建一个正确语法的测试文件

;; 测试1: 直接捕获continuation值
(display "\n测试1: 直接调用call/cc\n")
(display "即将调用call/cc...\n")
(define result1 (call/cc (lambda (k) (display "即将调用k，参数值: 42\n") (k 42))))
(display "result1 = ")
(display result1)
(display "\n")

;; 测试2: 验证值的类型
(display "\n测试2: 检查continuation返回值的类型\n")
(display "值是否为null? ")
(display (null? result1))
(display "\n")
(display "值是否为整数? ")
(display (integer? result1))
(display "\n")

(display "\n所有测试完成\n")